home *** CD-ROM | disk | FTP | other *** search
/ Internet Tools (InfoMagic) / Internet Tools.iso / dos_win / winsock / maillist / 93-11.Z / 93-11 / 000115_phj@lynx.ssb.no_Tue Nov 30 10:52:55 1993.msg < prev    next >
Internet Message Format  |  1993-11-30  |  3KB
  1. Received: from Norway.EU.net (nic.eunet.no) by SunSITE.Unc.EDU (5.65c+IDA/FvK-1.06) with SMTP
  2.           id AA09303; Tue, 30 Nov 1993 04:29:48 -0500
  3. Received: by Norway.EU.net with UUCP id AA20625
  4.   (5.65c/IDA-1.4.4/EUnet/NO for sunsite.unc.edu!winsock); Tue, 30 Nov 1993 10:29:44 +0100
  5. Received: from [193.160.167.130] by ssb.no with SMTP
  6.     (5.65+IDA/Babel-1.15/IDA-1.2.8) id AAhermes01349; Tue, 30 Nov 1993 09:52:08 +0100
  7. Received: from pcPHJ (pck162) by lynx.ssb.no (4.1/SMI-4.1)
  8.     id AA12339; Tue, 30 Nov 93 09:52:55 +0100
  9. Date: Tue, 30 Nov 93 09:52:55 +0100
  10. Message-Id: <9311300852.AA12339@lynx.ssb.no>
  11. X-Sender: phj@lynx.ssb.no (Unverified)
  12. To: winsock@sunsite.unc.edu
  13. From: phj@lynx.ssb.no (Per Henrik Johansen)
  14. Subject: Winsock and Visual Basic
  15. X-Mailer: <PC Eudora Version 1.1a10>
  16.  
  17. I have some trouble using winsock with Visual Basic. I can't seem to connect
  18. to a foreign host. I wondered if someone could help me with this. I use the
  19. included code to connect to connect to port 4000 on a Sun workstation, but
  20. all I get is error code 10061.
  21. Please answer to phj@lynx.ssb.no
  22.  
  23. ---- cut ----
  24. Sub Command3D2_Click ()
  25.     Dim s As Integer
  26.     Dim lengde As Integer
  27.     Dim sa As sockaddr_in
  28.     Dim wd As WSADATA_type
  29.     Dim feil As Integer
  30.               
  31.     feil = wsastartup(257, wd)
  32.     If Not (feil = 0) Then
  33.         MsgBox ("Ikke riktig versjon av 'winsock.dll'! Trenger versjon 1.1 
  34. eller hxyere.")
  35.         Exit Sub
  36.     End If
  37.  
  38.     sa.sin_addr = inet_addr("193.160.167.130")
  39.     If sa.sin_addr = &HFFFFFFFF Then
  40.         MsgBox ("Feil med adressen")
  41.         Exit Sub
  42.     End If
  43.  
  44.     'sa.sin_addr = ntohl(inet_addr("193.160.167.130"))
  45.     sa.sin_family = AF_INET
  46.     sa.sin_port = 4000
  47.  
  48.     'tekst = inet_ntoa(sa.sin_family)
  49.     'MsgBox (tekst)
  50.  
  51.     s = socket(AF_INET, SOCK_STREAM, 0)
  52.     If s < 0 Then
  53.         feil = wsagetlasterror()
  54.         MsgBox ("Socket error: " + Str$(feil))
  55.         Exit Sub
  56.     End If
  57.                     
  58.     feil = connect(s, sa, 16)
  59.     If Not (feil = 0) Then
  60.         feil = wsagetlasterror()
  61.         MsgBox ("Connect error: " + Str$(feil))
  62.         feil = closesocket(s)
  63.         Exit Sub
  64.     End If
  65.  
  66.     If send(s, "test", 4, 0) = SOCKET_ERROR Then
  67.         feil = wsagetlasterror()
  68.         MsgBox ("Send error: " + Str$(feil))
  69.         Exit Sub
  70.     End If
  71.  
  72.     feil = closesocket(s)
  73.  
  74.     feil = wsacleanup()
  75.     MsgBox ("FERDIG!! :) ")
  76. End Sub
  77.  
  78. --- cut ----
  79. --
  80. Per Henrik Johansen               "A bore is someone who persists in holding
  81.   Statistics Norway                his own views after we have enlightened
  82.     phj@lynx.ssb.no                him with ours."